home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS217.dsk / START 2.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  75 lines
  1. 100  REM THIS PROGRAM WILL LOAD FLEX TYPE BELOW HI-RES PAGE 1 AT 2048 ($800)
  2. 200 PG = 2: REM SAVE HI-RES 1 & 2
  3. 300 CS$(1) = "ASCII.70"
  4. 400 CS$(2) = "ASCII.56"
  5. 500 CS$(3) = ""
  6. 600 CS$(4) = ""
  7. 700  FOR I = 1 TO 9: IF  LEN(CS$(I))  THEN NCS = NCS +1: NEXT 
  8. 800  TEXT : HOME : PRINT  CHR$(4)"NOMONICO"
  9. 900  IF  PEEK(104) < >(PG +1) *32  OR  PEEK((PG +1) *8192) < >0  THEN  POKE 104,(PG +1) *32: POKE (PG +1) *8192,0: PRINT  CHR$(4)"RUN START 2"
  10. 1000  HOME 
  11. 1100  FOR I = 1 TO 23
  12. 1200  VTAB I: HTAB 1
  13. 1300  IF I = 1  OR I = 23  THEN  PRINT "****************************************";: GOTO 1600
  14. 1400  IF I = 23 GOTO 1600
  15. 1500  PRINT "*"; TAB( 40);"*";
  16. 1600  NEXT I
  17. 1700  VTAB 3: HTAB 16: PRINT "CREDITS:";
  18. 1800  VTAB 6: HTAB 4: PRINT "INPUT ROUTINE - SOFTDISK MAR 1983";
  19. 1900  VTAB 8: HTAB 4: PRINT "TITLE PICTURE - SOFTDISK DEC 1983";
  20. 2000  VTAB 10: HTAB 4: PRINT "FLEX TYPE - MARK SIMONSEN";
  21. 2100  VTAB 11: HTAB 16: PRINT "(C) 1982 - BEAGLE BROS.";
  22. 2110  VTAB 16: HTAB 12: PRINT "FAMILY TREE SURGEON";
  23. 2120  VTAB 18: HTAB 21: PRINT "BY";
  24. 2130  VTAB 20: HTAB 12: PRINT "WESLEY A. BARTLETT";
  25. 2350  PRINT 
  26. 2400 B = 2048
  27. 2500  PRINT  CHR$(4)"BLOAD FLEX TYPE,A"B
  28. 2600 C =  INT(B/256):D = B -(C *256)
  29. 2700 A = B +2048
  30. 2800  FOR I = 1 TO 2
  31. 2900  PRINT  CHR$(4)"BLOAD "CS$(I)",A"A +((I -1) *768)
  32. 3000 TYPE = 1
  33. 3100  IF  RIGHT$(CS$(I),3) = ".70"  THEN TYPE = 3
  34. 3200  IF  RIGHT$(CS$(I),3) = ".56"  THEN TYPE = 2
  35. 3300  POKE (A -10) +I,TYPE
  36. 3400  NEXT I
  37. 3500  POKE A -10,NCS
  38. 3600  POKE A -11,32: REM DISPLAY HI-RES PAGE 1
  39. 3700  POKE 973,76: POKE 974,D: POKE 975,C
  40. 3800  IF  PEEK(1014) = 88  AND  PEEK(1015) = 255  THEN  POKE 1014,D: POKE 1015,C
  41. 3900  IF  PEEK(978) >189  THEN  POKE B +205,10: REM DM FIX
  42. 4000  CALL B: HOME 
  43. 4100  PRINT  CHR$(4);"BLOAD TITLE2.PIC
  44. 4101  HCOLOR= 4
  45. 4102  FOR Y = 13 TO 25
  46. 4103  HPLOT 90,Y TO 200,Y
  47. 4104  NEXT Y
  48. 4105  HCOLOR= 3
  49. 4109  PRINT  CHR$(20);2
  50. 4110  VTAB 3: HTAB 20: PRINT " FAMILY TREE SURGEON ";
  51. 4111  PRINT  CHR$(20);1;
  52. 4112  HCOLOR= 4
  53. 4113  FOR Y = 52 TO 66
  54. 4114  HPLOT 48,Y TO 94,Y
  55. 4115  HPLOT 130,Y TO 171,Y
  56. 4116  NEXT Y: HCOLOR= 3
  57. 4122  VTAB 8: HTAB 15: PRINT "GRANDPA";: HTAB 35: PRINT "GRANDMA";
  58. 4124  HCOLOR= 4
  59. 4125  FOR Y = 92 TO 106
  60. 4126  HPLOT 92,Y TO 118,Y
  61. 4127  HPLOT 172,Y TO 198,Y
  62. 4128  NEXT : HCOLOR= 3
  63. 4133  VTAB 13: HTAB 25: PRINT " POP ";
  64. 4135  VTAB 13: HTAB 45: PRINT " MOM ";
  65. 4136  HCOLOR= 4
  66. 4137 Y = 123
  67. 4138  FOR Y = Y TO Y +14
  68. 4139  HPLOT 132,Y TO 158,Y
  69. 4140  NEXT Y
  70. 4142  VTAB 17: HTAB 35: PRINT " YOU ";
  71. 4147  VTAB 22: HTAB 3: PRINT " PRESS RETURN ";
  72. 4148  GET X$
  73. 4149  PRINT 
  74. 4150  PRINT  CHR$(4);"BLOAD IN$.OBJ,A$300"
  75. 4200  PRINT  CHR$(4);"RUN FAMILY TREE SURGEON"